home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #1 / Ham Radio 2000.iso / ham2000 / packet / p_aa4re / bb212src / bblstr.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-11-26  |  5.4 KB  |  245 lines

  1. (*===========================================================================*)
  2. (* Long String Service routines                                              *)
  3. (*                                                                           *)
  4. (*   Copyright 1988, 1989 by H. Roy Engehausen.  All rights reserved.        *)
  5. (*   This software may be freely distributed and used, but it may not        *)
  6. (*   under any circumstances be sold by anyone other than the author.        *)
  7. (*   It may be distributed by a commercial company as long as it is          *)
  8. (*   for no cost.                                                            *)
  9. (*                                                                           *)
  10. (*===========================================================================*)
  11.  
  12. {$R-}
  13.  
  14. UNIT BBLSTR;
  15.  
  16. INTERFACE
  17.  
  18. USES
  19.   bbdummy;
  20.  
  21. FUNCTION  l_pos      (a : str_mixed_ptr; look_for : CHAR) : WORD;
  22. PROCEDURE l_cat      (a : str_mixed_ptr; b : str_mixed_ptr);
  23. PROCEDURE l_cat_size (a : str_mixed_ptr; b : str_mixed_ptr; c : INTEGER);
  24. PROCEDURE l_cat_str  (a : str_mixed_ptr; VAR b : string);
  25. PROCEDURE l_cat_str_size (a: str_mixed_ptr; VAR b : string; c : INTEGER);
  26. PROCEDURE l_move_str (a : str_mixed_ptr; b : string);
  27. FUNCTION  l_substr   (a : str_mixed_ptr; start_pos : WORD; len_pos : WORD)
  28.                : str_mixed_ptr;
  29.  
  30. (*---------------------------------------------------------------------------*)
  31. (* Ok!  Let's start work.                                                    *)
  32. (*---------------------------------------------------------------------------*)
  33.  
  34. IMPLEMENTATION
  35.  
  36. USES
  37.   bbstack;
  38.  
  39. {$I BBMACRO.PAS}
  40.  
  41. {$UNDEF DEBUG}
  42.  
  43. VAR result_holder : str_mixed;
  44.  
  45. FUNCTION  l_pos  (a : str_mixed_ptr; look_for : CHAR) : WORD;
  46.  
  47.   VAR
  48.     i : WORD;
  49.  
  50.   BEGIN;
  51.  
  52. {$IFDEF DEBUG}
  53. stack_depth;
  54. {$ENDIF}
  55.  
  56.     i := 0;
  57.  
  58.     WHILE i < a^.long_length DO
  59.       BEGIN;
  60.         INC(i);
  61.         IF a^.long_data[i] = look_for THEN
  62.           BEGIN;
  63.             l_pos := i;
  64.             EXIT;
  65.           END;
  66.       END;
  67.  
  68.     l_pos := 0;
  69.  
  70.     EXIT;
  71.  
  72.   END;
  73.  
  74. PROCEDURE l_cat( a : str_mixed_ptr; b : str_mixed_ptr);
  75.  
  76.   VAR
  77.     i : WORD;
  78.     j : WORD;
  79.  
  80.   BEGIN;
  81.  
  82.     i := a^.long_length;
  83.     j := b^.long_length;
  84.  
  85.     IF (j = 0) OR (i >= SIZEOF(a^.long_data)) THEN
  86.       EXIT;
  87.  
  88.     IF (i + j) > SIZEOF(a^.long_data) THEN
  89.       j := SIZEOF(a^.long_data) - i;
  90.  
  91.     MOVE(b^.long_data, a^.long_data[i+1], j);
  92.     a^.long_length := i + j;
  93.  
  94.     a^.str_data[0] := CHR(min_w(255, a^.long_length));
  95.  
  96.     i := b^.long_length - j;
  97.     IF i > 0 THEN
  98.       MOVE(b^.long_data[j+1], b^.long_data[1], i);
  99.     b^.long_length := i;
  100.  
  101.     b^.str_data[0] := CHR(min_w(255, b^.long_length));
  102.  
  103.   END;
  104.  
  105. PROCEDURE l_cat_size (a : str_mixed_ptr; b : str_mixed_ptr; c : INTEGER);
  106.  
  107.   VAR
  108.     i : WORD;
  109.     j : WORD;
  110.  
  111.   BEGIN;
  112.  
  113.     i := a^.long_length;
  114.     j := b^.long_length;
  115.  
  116.     IF (j = 0) OR (i >= SIZEOF(a^.long_data)) THEN
  117.       EXIT;
  118.  
  119.     IF (i + j) > c THEN
  120.       j := c - i;
  121.  
  122.     MOVE(b^.long_data, a^.long_data[i+1], j);
  123.     a^.long_length := i + j;
  124.  
  125.     a^.str_data[0] := CHR(min_w(255, a^.long_length));
  126.  
  127.     i := b^.long_length - j;
  128.     IF i > 0 THEN
  129.       MOVE(b^.long_data[j+1], b^.long_data[1], i);
  130.     b^.long_length := i;
  131.  
  132.     b^.str_data[0] := CHR(min_w(255, b^.long_length));
  133.  
  134.   END;
  135.  
  136. PROCEDURE l_cat_str( a : str_mixed_ptr; VAR b : string);
  137.  
  138.   VAR
  139.     i : WORD;
  140.     j : WORD;
  141.  
  142.   BEGIN;
  143.  
  144.     i := a^.long_length;
  145.     j := LENGTH(b);
  146.  
  147.     IF (j = 0) OR (i >= SIZEOF(a^.long_data)) THEN
  148.       EXIT;
  149.  
  150.     IF (i + j) > SIZEOF(a^.long_data) THEN
  151.       j := SIZEOF(a^.long_data) - i;
  152.  
  153.     MOVE(b[1], a^.long_data[i+1], j);
  154.     a^.long_length := i + j;
  155.     a^.str_data[0] := CHR(min_w(255, a^.long_length));
  156.  
  157.     i := LENGTH(b) - j;
  158.     IF i > 0 THEN
  159.       MOVE(b[j+1], b[1], i);
  160.     b[0] := CHR(i);
  161.  
  162.   END;
  163.  
  164. PROCEDURE l_cat_str_size (a: str_mixed_ptr; VAR b : string; c : INTEGER);
  165.  
  166.   VAR
  167.     i : WORD;
  168.     j : WORD;
  169.  
  170.   BEGIN;
  171.  
  172.     WITH a^ DO
  173.       BEGIN;
  174.  
  175.         i := long_length;
  176.         j := LENGTH(b);
  177.  
  178.         IF (j = 0) OR (i >= SIZEOF(long_data)) THEN
  179.           EXIT;
  180.  
  181.         IF (i + j) > c THEN
  182.           IF c >= i THEN
  183.             j := c - i
  184.           ELSE
  185.             j := 0;
  186.  
  187.         MOVE(b[1], long_data[i+1], j);
  188.         long_length := i + j;
  189.  
  190.         i := LENGTH(b) - j;
  191.         IF i > 0 THEN
  192.           MOVE(b[j+1], b[1], i);
  193.         b[0] := CHR(i);
  194.  
  195.         a^.str_data[0] := CHR(min_w(255, a^.long_length));
  196.  
  197.         IF i <= 255 THEN
  198.           b[0] := CHR(i)
  199.         ELSE
  200.           b[0] := CHR(255);
  201.  
  202.       END;
  203.  
  204.   END;
  205.  
  206. PROCEDURE l_move_str( a : str_mixed_ptr; b : string);
  207.  
  208.   VAR
  209.     i : WORD;
  210.     j : WORD;
  211.  
  212.   BEGIN;
  213.  
  214.     i := LENGTH(b);
  215.     a^.long_length := i;
  216.  
  217.     MOVE(b[0], a^.str_data[0], i + 1);
  218.  
  219.   END;
  220.  
  221. FUNCTION l_substr( a : str_mixed_ptr; start_pos : WORD; len_pos : WORD) :
  222.                str_mixed_ptr;
  223.  
  224.   BEGIN;
  225.  
  226.     l_substr := @result_holder;
  227.  
  228.     IF start_pos > a^.long_length THEN
  229.       BEGIN;
  230.         result_holder.long_length := 0;
  231.         EXIT
  232.       END;
  233.  
  234.     IF len_pos = 0 THEN
  235.       len_pos := a^.long_length - start_pos + 1;
  236.  
  237.     result_holder.long_length := len_pos;
  238.     result_holder.str_data[0] := CHR(min_w(255, len_pos));
  239.  
  240.     MOVE(a^.long_data[start_pos], result_holder.long_data[1], len_pos);
  241.  
  242.   END;
  243.  
  244. END.
  245.